home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_lrm / lr3bva.src < prev    next >
Text File  |  1996-01-30  |  384b  |  19 lines
  1. with TEXT_IO; use TEXT_IO; 
  2.  
  3. package body MACHINE_SPECIFIC is 
  4.  
  5.  
  6.   procedure CLS is 
  7.   -- author: George C. Harrison
  8.  
  9.   begin
  10.     null;
  11.     PUT_LINE(ASCII.ESC & "[2J"); 
  12.     PUT_LINE(ASCII.ESC & "[H"); 
  13.     PUT_LINE(ASCII.ESC & "[?5l"); 
  14.   end CLS; 
  15.  
  16.  
  17.  
  18. end MACHINE_SPECIFIC; 
  19.